home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / Hard Disk Protect 1.3.cpt / Hard Disk Protect 1.3 / card_2971.txt < prev    next >
Text File  |  1989-02-26  |  3KB  |  168 lines
  1. -- card: 2971 from stack: in.3
  2. -- bmap block id: 4964
  3. -- flags: 4000
  4. -- background id: 2666
  5. -- name: HDP1
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=172 top=87 right=113 bottom=316
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Start HD Protection
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hide menubar
  23.   put 0 into flg
  24.   ask password "Enter Password"
  25.   if it is"" then exit mouseUp
  26.   put "NOW PROTECTING HARD DISK.  PLEASE WAIT."
  27.   wait 4 seconds
  28.   hide message
  29.   ask "Is this your Password?" with it
  30.   set the rect of card button id 4 of card id 4396 to 51,174,111,195
  31.   go to card id 4396
  32.   beep 3
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=32 top=188 right=214 bottom=68
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 21700 / 21700
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: home
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   hide message
  52.   global usrlvl
  53.   set userlevel to usrlvl
  54.   play "Harpsichord" tempo 480 c2 d e f g a b c3 d e f g a b c4
  55.   visual effect dissolve slowly to card
  56.   go to stack "Home"
  57. end mouseup
  58. show menubar
  59.  
  60.  
  61.  
  62.  
  63. -- part 3 (button)
  64. -- low flags: 00
  65. -- high flags: 8000
  66. -- rect: left=436 top=168 right=213 bottom=473
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 2478 / 2478
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: INFO
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   Hide menubar
  78.   go to card id 3921
  79. end mouseUp
  80.  
  81.  
  82.  
  83.  
  84. -- part 11 (field)
  85. -- low flags: 81
  86. -- high flags: 0000
  87. -- rect: left=31 top=223 right=281 bottom=193
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 21
  92. -- text size: 12
  93. -- style flags: 256
  94. -- line height: 16
  95. -- part name: pw2
  96.  
  97.  
  98. -- part 13 (button)
  99. -- low flags: 80
  100. -- high flags: A003
  101. -- rect: left=201 top=270 right=292 bottom=301
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Yes
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   play "Harpsichord"
  113.   hide card field pw2
  114.   hide card field upw2
  115.   hide button Yes
  116.   hide button id 14
  117.   go to card id 4396
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 19 (button)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=0 top=330 right=342 bottom=12
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: New Button
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   -- tanstaafl ! --
  137.   flash 2
  138.   -- How'd you get in here?  Don't you have anything better to do?
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 21 (field)
  144. -- low flags: 01
  145. -- high flags: 0000
  146. -- rect: left=396 top=137 right=165 bottom=459
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 0
  150. -- font id: 21
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: v 1.3
  155.  
  156.  
  157. -- part contents for background part 6
  158. ----- text -----
  159. Hard Disk Protector
  160.  
  161. -- part contents for card part 11
  162. ----- text -----
  163.  
  164. Is This Your Password?
  165.  
  166. -- part contents for card part 21
  167. ----- text -----
  168. v 1.3